Exploring Aeronautics/NASA Exploring Aeronautics.iso/pc/source/index.dxr/00001_main.ls

Text File | 1998-06-02 | 679 b | 27 lines

global gMain, gSoundManager, gButtonManager

on startMovie
  initMain()
  mClearButtons(gButtonManager)
  mAddButton(gButtonManager, 35, "nasabutton", "mGoToMovie(gMain, #main)")
  puppetSprite(44, 0)
  set handCursor to the number of member "handCursor"
  set handCursorMask to the number of member "handCursorMask"
  repeat with aSprite in [5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 25, 26, 27, 30]
    set the cursor of sprite aSprite to [handCursor, handCursorMask]
  end repeat
end

on stopMovieScript
end

on startDemoMode
  go("demoMode")
  set the mouseDownScript to "stopDemoMode"
end

on stopDemoMode
  set the mouseDownScript to EMPTY
  go(1)
end